home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
comm1
/
cnetwho.lha
/
who
/
Loader
< prev
next >
Wrap
Text File
|
1996-05-08
|
939b
|
16 lines
/**************************************************************************\
$VER: CNet WHO Loader, v2.61 (8-May-96) by Dotoran!
\**************************************************************************/
options results;gu=getuser;gu 1311992;dp=result;gu 39;md=result
ban="mail:users/"md"/_Banners";gu 38;who=result;a=getclip('IdleWhoB0')
if a="" then do;call open(f1,dp"IdlePorts","r");a=word(readln(f1),1)
do i=1 to a ; b=readln(f1) ; parse var b p'|'info
call setclip('IdleWhoB'p,info) ; end i ; call close(f1) ; end
if exists(ban) then do ; call open(f1,ban,'r')
do i=1 to 9 ; w.i=readln(f1) ; end i ; call close(f1)
setobject w.1 ; putuser 38 ; call open(f1,ban,'w')
do i=2 to 9 ; call writeln(f1,w.i) ; end i ; call writeln(f1,who)
call close(f1) ; end
/** Last Edited: 8-May-96 *************************************************\
\****************************************** Frontiers BBS (716)/823-9892 **/